home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #39 (Dec 88) / Twindow / TWindowTester.r < prev   
Text File  |  1988-04-29  |  10KB  |  361 lines
  1. /*
  2.  *    TWindowTester.r
  3.  *
  4.  *    Resources for a simple program to demonstrate usage of tool  windows
  5.  *    by using routines from the TWindow Manager. Tool windows are windows
  6.  *    that always float on top, typically for palettes and tools.
  7.  *
  8.  *    Written in MPW C 2.0
  9.  *
  10.  *        Thomas Fruin 1988
  11.  *
  12.  *        fruin@hlerul5.BITNET            University of Leiden
  13.  *        thomas@uvabick.UUCP                University of Amsterdam
  14.  *        dibs@well.UUCP
  15.  *        hol0066.AppleLink
  16.  *        2:508/15.FidoNet                The Netherlands
  17.  *
  18.  *    TWindowTester is based on MiniEdit - Mini text editor,converted from
  19.  *    the listing in Macintosh Revealed, vol II. As little as possible was
  20.  *    modified in the original program, although most of the functionality
  21.  *    is no longer there.
  22.  */
  23.  
  24. resource 'MENU' (1) {
  25.     1,
  26.     textMenuProc,
  27.     0x7FFFFFFD,
  28.     enabled,
  29.     apple,
  30.     {    /* array: 2 elements */
  31.         /* [1] */
  32.         "About TWindowTester ...", noIcon, "", "", plain,
  33.         /* [2] */
  34.         "-", noIcon, "", "", plain
  35.     }
  36. };
  37.  
  38. resource 'MENU' (2) {
  39.     2,
  40.     textMenuProc,
  41.     0x7FFFFFF3,
  42.     enabled,
  43.     "File",
  44.     {    /* array: 5 elements */
  45.         /* [1] */
  46.         "New", noIcon, "N", "", plain,
  47.         /* [2] */
  48.         "New Tool", noIcon, "T", "", plain,
  49.         /* [3] */
  50.         "Close", noIcon, "W", "", plain,
  51.         /* [4] */
  52.         "-", noIcon, "", "", plain,
  53.         /* [5] */
  54.         "Quit", noIcon, "Q", "", plain
  55.     }
  56. };
  57.  
  58. resource 'MENU' (3) {
  59.     3,
  60.     textMenuProc,
  61.     0x7FFFFF80,
  62.     enabled,
  63.     "Edit",
  64.     {    /* array: 7 elements */
  65.         /* [1] */
  66.         "Undo", noIcon, "Z", "", plain,
  67.         /* [2] */
  68.         "-", noIcon, "", "", plain,
  69.         /* [3] */
  70.         "Cut", noIcon, "X", "", plain,
  71.         /* [4] */
  72.         "Copy", noIcon, "C", "", plain,
  73.         /* [5] */
  74.         "Paste", noIcon, "V", "", plain,
  75.         /* [6] */
  76.         "-", noIcon, "", "", plain,
  77.         /* [7] */
  78.         "Clear", noIcon, "B", "", plain
  79.     }
  80. };
  81.  
  82. resource 'MENU' (4) {
  83.     4,
  84.     textMenuProc,
  85.     allEnabled,
  86.     enabled,
  87.     "Windows",
  88.     {    /* array: 0 elements */
  89.     }
  90. };
  91.  
  92. resource 'MENU' (5) {
  93.     5,
  94.     textMenuProc,
  95.     allEnabled,
  96.     enabled,
  97.     "Tools",
  98.     {    /* array: 0 elements */
  99.     }
  100. };
  101.  
  102. resource 'WIND' (1000) {
  103.     {50, 40, 300, 450},
  104.     documentProc,
  105.     invisible,
  106.     goAway,
  107.     0x0,
  108.     "Document "
  109. };
  110.  
  111. resource 'WIND' (1001) {
  112.     {58, 533, 159, 606},
  113.     altDBoxProc,
  114.     invisible,
  115.     noGoAway,
  116.     0x0,
  117.     "Tool "
  118. };
  119.  
  120. resource 'CNTL' (1000) {
  121.     {-1, 395, 236, 411},
  122.     0,
  123.     -1,
  124.     0,
  125.     0,
  126.     scrollBarProc,
  127.     0,
  128.     "vertical scroll bar"
  129. };
  130.  
  131. resource 'PICT' (128) {
  132.     2616,
  133.     {0, 5, 217, 188},
  134.     $"1101 A000 82A0 3039 A000 8E01 000A 0000"
  135.     $"0000 02D0 0240 9800 1800 0000 0000 8600"
  136.     $"C000 0000 0500 8600 BC00 0000 0500 8600"
  137.     $"BC00 0106 FC00 0030 EF00 06FC 0000 78EF"
  138.     $"0006 FC00 0078 EF00 06FC 0000 32EF 0006"
  139.     $"FC00 0007 EF00 06FC 0000 0EEF 0007 FC00"
  140.     $"0104 C0F0 000A 0101 80FE 0001 01E0 F000"
  141.     $"0A01 03C0 FE00 0101 E0F0 0009 0107 E0FD"
  142.     $"0000 C8F0 0009 0107 E0FD 0000 1CF0 0009"
  143.     $"0107 E0FD 0000 38F0 0009 0103 C4FD 0000"
  144.     $"13F0 000A 0101 8EFD 0001 0780 F100 0A01"
  145.     $"001E FD00 0107 80F1 000B 0700 3C00 0060"
  146.     $"0003 20F1 000B 0700 38C0 00F0 0000 70F1"
  147.     $"000B 0700 11E0 00F0 0000 E8F1 000B 0700"
  148.     $"03F0 0060 0000 5CF1 000B 0700 03F0 000F"
  149.     $"F000 38F1 000B 0700 03F0 003F FC00 13F1"
  150.     $"000C 0800 01E0 00FF FF00 0780 F200 0C08"
  151.     $"0000 C301 FFFF 8007 80F2 000B 0700 0007"
  152.     $"83FF FFC0 03F1 000A 0600 000F C7FF FFE0"
  153.     $"F000 0A06 0000 0FCF FFFF F0F0 000A 0600"
  154.     $"000F CFFE FFF0 F000 0A06 0000 079F FE7F"
  155.     $"F8F0 000A 0600 0003 1FFE 3FF8 F000 09FE"
  156.     $"0003 3FFE 1FFC F000 09FE 0003 3FFE 3FFC"
  157.     $"F000 09FE 0003 3FFC 7FFC F000 09FE 0003"
  158.     $"3FFC 7BFC F000 09FE 0003 3FF8 F9FC F000"
  159.     $"09FE 0003 3FF8 F8FC F000 09FE 0003 3FF9"
  160.     $"E3FC F000 09FE 0003 3FF1 0FFC F000 09FE"
  161.     $"0003 3FF0 7FFC F000 0AFE 0004 3FE1 FFFC"
  162.     $"C0F1 000A FE00 041F F7FF F9E0 F100 0AFE"
  163.     $"0004 1FFF FFF9 E0F1 000A FE00 040F FFFF"
  164.     $"F0C8 F100 0AFE 0004 0FFF FFF0 1CF1 000A"
  165.     $"FE00 0407 FFFF E038 F100 0AFE 0004 03FF"
  166.     $"FFC0 13F1 000B FE00 0501 FFFF 8007 80F2"
  167.     $"000A FD00 04FF FF00 0780 F200 09FD 0003"
  168.     $"3FFC 0003 F100 07FD 0001 0FF0 EF00 02E9"
  169.     $"0009 FB00 0330 000F F0F3 0009 FB00 0378"
  170.     $"003F FCF3 0009 FB00 03F0 00FF FFF3 000B"
  171.     $"FC00 0501 E201 FFFF 80F4 000B FC00 0501"
  172.     $"C703 FFFF C0F4 000A FB00 048F 07FF FFE0"
  173.     $"F400 0AFB 0004 1E0F FFFF F0F4 000A FB00"
  174.     $"043C 0FFF FFF0 F400 0AFB 0004 181F FFFF"
  175.     $"F8F4 0009 FA00 031F FFFF F8F4 0009 FA00"
  176.     $"033F FFEF FCF4 0009 FA00 033F FF87 FCF4"
  177.     $"0009 FA00 033F FC0F FCF4 000B FC00 0530"
  178.     $"003F F08F FCF4 000B FC00 0578 003E 038F"
  179.     $"FCF4 000B FC00 0578 003F 391F FCF4 000B"
  180.     $"FC00 0532 003F BC1F FCF4 000B FC00 0507"
  181.     $"003F FE1F FCF4 000B FC00 050E 003F FF3F"
  182.     $"FCF4 000B FC00 0504 C03F FE3F FCF4 000C"
  183.     $"FC00 0601 E01F F83F F8C0 F500 0CFC 0006"
  184.     $"01E0 1FFC 7FF9 E0F5 000B FB00 05D8 0FFE"
  185.     $"7FF1 E0F5 000B FB00 053C 0FFF 7FF0 C8F5"
  186.     $"000B FB00 053C 07FF FFE0 1CF5 000B FB00"
  187.     $"051B 03FF FFC0 3AF5 000B FB00 0507 81FF"
  188.     $"FF80 17F5 000B FB00 0507 80FF FF00 0EF5"
  189.     $"000C FB00 0603 603F FC00 04C0 F600 0BFA"
  190.     $"0005 F00F F000 01E0 F600 0BFA 0000 F0FE"
  191.     $"0001 01E0 F600 0CFA 0006 6C00 0020 00CF"
  192.     $"F0F7 000C FA00 061E 0000 7000 3FFC F700"
  193.     $"0CFA 0006 1E00 00F0 00FF FFF7 000D FA00"
  194.     $"070C 8001 E001 FFFF 80F8 000D FA00 0701"
  195.     $"C001 C603 FFFF C0F8 000D FA00 0703 8000"
  196.     $"8F07 FFFF E0F8 000D FA00 0701 0000 1F8F"
  197.     $"FDFF F0F8 000A F700 041F 8FFC FFF0 F800"
  198.     $"0AF7 0004 1F9F F87F F8F8 000A F700 040F"
  199.     $"1FF0 7FF8 F800 0DF7 0007 063F E4FF FC00"
  200.     $"0030 FB00 0CF6 0006 3FC8 FFFC 0000 78FB"
  201.     $"000C F600 063F 99FF FC00 0078 FB00 0CF6"
  202.     $"0006 3F39 FBFC 0000 32FB 000C F600 063C"
  203.     $"71F1 FC00 0007 FB00 0CF6 0006 3E73 C0FC"
  204.     $"0000 0EFB 000D F600 073F 7330 FC00 0004"
  205.     $"C0FC 000D F600 073F F0E3 FC00 0001 E0FC"
  206.     $"000D F600 073F E3C7 FC00 0001 E0FC 000F"
  207.     $"F800 0530 003F EF8F FCFE 0000 C8FC 000F"
  208.     $"F800 0578 001F FF1F F8FE 0000 1CFC 000F"
  209.     $"F800 0978 001F F83F F840 0000 38FC 000F"
  210.     $"F800 0932 000F FC7F F0E0 0000 13FC 0010"
  211.     $"F800 0A07 000F FE7F F1D0 0000 0780 FD00"
  212.     $"10F8 000A 0E00 07FF 7FE0 B800 0007 80FD"
  213.     $"0010 F800 0A04 C003 FFFF C074 0000 0360"
  214.     $"FD00 10F8 0006 01E0 01FF FF80 2EFE 0000"
  215.     $"F0FD 0010 F800 0601 E000 FFFF 001C FE00"
  216.     $"00F0 FD00 0FF7 0009 D800 3FFC 0009 8000"
  217.     $"006C FD00 0FF7 0009 3C00 0FF0 0003 C000"
  218.     $"001E FD00 0EF7 0000 3CFD 0004 03C0 0000"
  219.     $"1EFD 0010 F700 0A19 0000 0180 0180 0000"
  220.     $"0D80 FE00 10F7 000A 0380 0003 C000 1FE0"
  221.     $"0003 C0FE 0010 F700 0A07 4000 07E0 007F"
  222.     $"F800 03C0 FE00 10F7 000A 02E0 0007 E001"
  223.     $"FFFE 0001 80FE 000D F700 0701 C000 07E0"
  224.     $"03FF FFFB 000D F600 0798 0003 C407 FFFF"
  225.     $"80FC 000F F600 093C 0001 8E0F FFFF C000"
  226.     $"01FE 0010 F600 0A3C 0000 1E1F FFFF E000"
  227.     $"0380 FF00 10F6 000A 1900 003C 1FFF FFE0"
  228.     $"0006 C0FF 0010 F600 0A03 8000 383F FFFF"
  229.     $"F000 0C60 FF00 10F6 000A 0700 0010 3FFE"
  230.     $"FFF0 0018 30FF 0010 F600 0002 FE00 067F"
  231.     $"FE7F F800 3018 FF00 0CF2 0006 7FFC 3FF8"
  232.     $"0060 0CFF 000C F200 067F F81F F800 C006"
  233.     $"FF00 0CF2 0006 7FF0 6FF8 00C0 03FF 000C"
  234.     $"F200 087F E0EF F800 E001 8000 0CF2 0008"
  235.     $"7FC1 E7F8 00B0 00C0 000C F200 087F 81C7"
  236.     $"F800 9800 6000 0CF2 0008 7E04 07F8 018C"
  237.     $"0030 000C F200 087F 0E0F F803 C600 1800"
  238.     $"0CF2 0008 7F9F 9FF8 0663 000C 000C F200"
  239.     $"083F DFFF F0CC 3180 0600 9800 1800 8600"
  240.     $"0000 D900 C000 8600 0500 D900 BC00 8600"
  241.     $"0500 D900 BC00 010C F200 083F FFFF F1F8"
  242.     $"1980 0300 0CF2 0008 1FFF FFE3 300F 0001"
  243.     $"800C F200 081F FFFF E618 0600 00C0 0CF2"
  244.     $"0008 0FFF FFCC 0C0C 0000 600C F200 0807"
  245.     $"FFFF 9806 1800 0030 0CF2 0008 03FF FF30"
  246.     $"0330 0000 700C F200 0801 FFFE 7001 E000"
  247.     $"00D0 0BF1 0007 7FF8 5800 C000 0190 0BF1"
  248.     $"0002 1FE0 4CFE 0001 0330 09EF 0000 66FE"
  249.     $"0001 0660 0AF0 0001 01B3 FE00 010C C00A"
  250.     $"F000 0603 D980 0000 1980 0AF0 0006 07EC"
  251.     $"C000 0033 000A F000 0607 E660 0000 6600"
  252.     $"0AF0 0006 07E3 3000 00CC 000A F000 0603"
  253.     $"C598 0001 9800 0AF0 0006 018E CC00 0330"
  254.     $"0009 EF00 051E E600 0670 0009 EF00 053D"
  255.     $"B300 0CD8 0009 EF00 053B F980 19CC 0009"
  256.     $"EF00 0517 FCC0 33E6 0009 EF00 050F FE60"
  257.     $"67F3 0009 EF00 051B F330 CFF9 8009 EF00"
  258.     $"0533 F199 9FFC C009 EF00 0567 E0CF 3FFE"
  259.     $"6009 EF00 05CC C7E6 7FFF 300A F000 0601"
  260.     $"980F F0FF FF30 0AF0 0006 03CC 0FF9 FFFE"
  261.     $"700A F000 0606 660F FFFF FCD0 0AF0 0006"
  262.     $"0433 0FFF FFF9 900A F000 0604 1987 FFFF"
  263.     $"F310 0AF0 0006 040C C3FF FFE6 100A F000"
  264.     $"0604 0663 FFFF CCD0 0AF0 0006 0403 37FF"
  265.     $"FF99 D00A F000 0604 019F FFFF 33D0 0AF0"
  266.     $"0006 0400 CFFF FE67 D00A F000 0604 0067"
  267.     $"FFFC CF50 0AF0 0006 0400 33FF F99A 500A"
  268.     $"F000 0604 0019 FFF3 3250 0AF0 0006 0400"
  269.     $"0CFF E662 500A F000 0604 0006 7FCC C250"
  270.     $"0AF0 0006 0400 033F 9982 500A F000 0604"
  271.     $"0001 9F33 0250 0AF0 0006 0400 00CE 6602"
  272.     $"500A F000 0604 0000 64CC 0250 0AF0 0006"
  273.     $"0400 0031 9806 500A F000 0604 0000 1B30"
  274.     $"0CD0 0AF0 0006 0400 000E 6019 900A F000"
  275.     $"0604 0000 04C0 3310 0AF0 0000 04FE 0002"
  276.     $"8066 500A F000 0004 FE00 0280 CCD0 0AF0"
  277.     $"0000 04FE 0002 8199 900A F000 0004 FE00"
  278.     $"0283 3330 0AF0 0000 04FE 0002 8666 600A"
  279.     $"F000 0004 FE00 028C CCC0 0AF0 0000 04FE"
  280.     $"0002 9999 C00A F000 0004 FE00 02B3 3340"
  281.     $"0AF0 0000 04FE 0002 E626 400A F000 0004"
  282.     $"FE00 02CC 0C40 0AF0 0000 04FE 0002 9818"
  283.     $"C00A F000 0004 FE00 02B0 3180 0AF0 0000"
  284.     $"06FE 0002 E063 000A F000 0003 FE00 02C0"
  285.     $"C600 0AF0 0006 0180 0000 818C 0009 EF00"
  286.     $"05C0 0000 0318 0009 EF00 0560 0000 0630"
  287.     $"0009 EF00 0530 0000 0C60 0009 EF00 0518"
  288.     $"0000 18C0 0009 EF00 050C 0000 3180 0009"
  289.     $"EF00 0306 0000 63FF 0009 EF00 0303 0020"
  290.     $"C6FF 0009 EF00 0301 8031 8CFF 0008 EE00"
  291.     $"02C0 1B18 FF00 08EE 0002 600E 30FF 0008"
  292.     $"EE00 0230 0460 FF00 08EE 0002 1800 C0FF"
  293.     $"0008 EE00 020C 0180 FF00 07EE 0001 0603"
  294.     $"FE00 07EE 0001 0306 FE00 07EE 0001 018C"
  295.     $"FE00 06ED 0000 D8FE 0006 ED00 0070 FE00"
  296.     $"06ED 0000 20FE 00A0 008F A000 83FF"
  297. };
  298.  
  299. resource 'DLOG' (128) {
  300.     {62, 77, 312, 437},
  301.     dBoxProc,
  302.     invisible,
  303.     noGoAway,
  304.     0x0,
  305.     128,
  306.     "About"
  307. };
  308.  
  309. resource 'DITL' (128) {
  310.     {    /* array DITLarray: 7 elements */
  311.         /* [1] */
  312.         {27, 270, 48, 341},
  313.         Button {
  314.             enabled,
  315.             "OK"
  316.         },
  317.         /* [2] */
  318.         {56, 66, 73, 174},
  319.         StaticText {
  320.             disabled,
  321.             "TWindowTester"
  322.         },
  323.         /* [3] */
  324.         {189, 19, 226, 266},
  325.         StaticText {
  326.             disabled,
  327.             "Originally written for VAMP, "
  328.             "the Dutch Mac programmers group."
  329.         },
  330.         /* [4] */
  331.         {99, 60, 116, 172},
  332.         StaticText {
  333.             disabled,
  334.             "by Thomas Fruin"
  335.         },
  336.         /* [5] */
  337.         {117, 34, 135, 196},
  338.         StaticText {
  339.             disabled,
  340.             "Leiden, The Netherlands"
  341.         },
  342.         /* [6] */
  343.         {148, 68, 164, 169},
  344.         StaticText {
  345.             disabled,
  346.             "20 April 1988"
  347.         },
  348.         /* [7] */
  349.         {9, 158, 226, 341},
  350.         Picture {
  351.             disabled,
  352.             128
  353.         },
  354.         /* [8] */
  355.         {27, 270, 48, 341},
  356.         UserItem {
  357.             disabled
  358.         }
  359.     }
  360. };
  361.